(describe-function-1): Fix the code that uses find-function-noselect.

diff --git a/lisp/help.el b/lisp/help.el
index afe7f49e220658ed120e363864eecce39e657d34..ba3c6d6d4cd47167fe715f6d555d5538fc779dcf 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -619,8 +619,8 @@ C-w Display information on absence of warranty for GNU Emacs."
              (help-xref-button 1 #'(lambda (arg)
                                      (let ((location
                                             (find-function-noselect arg)))
-                                       (display-buffer (nth 0 location))
-                                       (goto-char (nth 1 location))))
+                                       (pop-to-buffer (car location))
+                                       (goto-char (cdr location))))
                                function)))))
     (if need-close (princ ")"))
     (princ ".")